From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 29 Jun 1993 21:08:31 +0000 (+0000)
Subject: (mark_object): Add aborts in Lisp_Symbol case.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95142
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5d7aa25b522fdabcc75b020f791deec0c068430b;p=emacs.git

(mark_object): Add aborts in Lisp_Symbol case.
---

diff --git a/src/alloc.c b/src/alloc.c
index 22153110480..e6edea42c95 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1587,10 +1587,18 @@ mark_object (objptr)
 	if (XMARKBIT (ptr->plist)) break;
 	XMARK (ptr->plist);
 	mark_object ((Lisp_Object *) &ptr->value);
+	if ((unsigned int) ptr <= 4)
+	  abort ();
 	mark_object (&ptr->function);
+	if ((unsigned int) ptr <= 4)
+	  abort ();
 	mark_object (&ptr->plist);
+	if ((unsigned int) ptr <= 4)
+	  abort ();
 	XSETTYPE (*(Lisp_Object *) &ptr->name, Lisp_String);
 	mark_object (&ptr->name);
+	if ((unsigned int) ptr <= 4)
+	  abort ();
 	ptr = ptr->next;
 	if (ptr)
 	  {